home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr25 / dkb32.zip / DKB32DAT.ZIP / NTREAL.DAT < prev    next >
Text File  |  1991-04-25  |  8KB  |  295 lines
  1. {Title-"Not A Trace of Reality"}
  2.  
  3. { -+ Compuserve Hall Of Fame award winner +- }
  4.  
  5. { This one is hard to describe and easy to look at. Have fun with it! }
  6. { - Drew Wells CIS 73767,1244 }
  7. { 11/29/90 }
  8.  
  9.  
  10. { This file is for use with DKBTrace by David Buck
  11.   and is released into the public domain. }
  12.  
  13. { Note - This one is a memory hog for pc's because of the twister }
  14. {        If you can't run it, try editing out some of the twister's }
  15. {        parts.  Requires include file twister.inc }
  16.  
  17. INCLUDE "shapes.dat"
  18. INCLUDE "colors.dat"
  19. INCLUDE "textures.dat"
  20.  
  21. DECLARE It = 
  22. QUADRIC Sphere SCALE <4.0 0.3 0.3> END_QUADRIC
  23.  
  24. { Camera/Viewer }
  25. VIEW_POINT
  26.    DIRECTION <0.0 0.0  1.5>
  27.    UP  <0.0  1.0  0.0>
  28.    RIGHT <-1.333 0.0 0.0>
  29.    TRANSLATE < -15.0  5.0  120.0>
  30.    LOOK_AT <10.0 12.0 55.0>
  31. END_VIEW_POINT
  32.  
  33. DECLARE Purple_Clouds = TEXTURE
  34.       0.05
  35.        BOZO
  36.        TURBULENCE 0.6
  37.        COLOUR_MAP
  38.           [0.0 0.5   COLOUR RED 0.9 GREEN 0.5  BLUE 0.6
  39.                      COLOUR RED 0.4 GREEN 0.0  BLUE 0.4]  
  40.           [0.5 0.6   COLOUR RED 1.0 GREEN 1.0  BLUE 1.0 ALPHA 1.0
  41.                      COLOUR RED 1.0 GREEN 1.0  BLUE 1.0 ALPHA 1.0 ]
  42.           [0.6 1.001 COLOUR RED 1.0 GREEN 1.0  BLUE 1.0 ALPHA 1.0
  43.                      COLOUR RED 1.0 GREEN 1.0  BLUE 1.0 ALPHA 1.0]
  44.        END_COLOUR_MAP
  45. END_TEXTURE
  46.  
  47. DECLARE Sunset_Sky = TEXTURE
  48.       0.05
  49.        GRADIENT <0.0 1.0 0.0>
  50.        
  51.        COLOUR_MAP   
  52.           [0.0 0.4   COLOUR RED 0.8 GREEN 0.0 BLUE 0.0
  53.                      COLOUR RED 0.4 GREEN 0.0 BLUE 0.4]
  54.           [0.4 0.6   COLOUR RED 0.4 GREEN 0.0 BLUE 0.4
  55.                      COLOUR RED 0.0 GREEN 0.0 BLUE 0.2]
  56.           [0.6 1.001 COLOUR RED 0.0 GREEN 0.0 BLUE 0.2
  57.                      COLOUR RED 0.0 GREEN 0.0 BLUE 0.0]
  58.        END_COLOUR_MAP
  59.        SCALE <700.0 700.0 700.0>
  60. END_TEXTURE
  61.  
  62. DECLARE Twister = OBJECT
  63.   UNION
  64.     INCLUDE "twister.inc"
  65.   END_UNION
  66.   BOUNDED_BY
  67.     SPHERE <0.0 5.0 0.0> 6.0  END_SPHERE
  68.   END_BOUND
  69.   TEXTURE
  70.     White_Wood
  71.     0.05
  72.     SCALE <3.0 3.0 3.0>
  73.     AMBIENT 0.1
  74.     DIFFUSE 0.99
  75.   END_TEXTURE
  76.   COLOR Blue
  77. END_OBJECT
  78.  
  79. DECLARE Slice = QUADRIC
  80.    Sphere
  81.    TRANSLATE <0.0 0.0 3.0>
  82.    SCALE <0.25 1.00 0.25>
  83. END_QUADRIC
  84.  
  85. DECLARE Thing = OBJECT
  86.   UNION
  87.     QUADRIC Slice END_QUADRIC
  88.     QUADRIC Slice ROTATE <0.0 -20.0  0.0> END_QUADRIC
  89.     QUADRIC Slice ROTATE <0.0 -40.0  0.0> END_QUADRIC
  90.     QUADRIC Slice ROTATE <0.0 -60.0  0.0> END_QUADRIC
  91.     QUADRIC Slice ROTATE <0.0 -80.0  0.0> END_QUADRIC
  92.     QUADRIC Slice ROTATE <0.0 -100.0 0.0> END_QUADRIC
  93.     QUADRIC Slice ROTATE <0.0 -120.0 0.0> END_QUADRIC
  94.     QUADRIC Slice ROTATE <0.0 -140.0 0.0> END_QUADRIC
  95.     QUADRIC Slice ROTATE <0.0 -160.0 0.0> END_QUADRIC
  96.     QUADRIC Slice ROTATE <0.0  180.0 0.0> END_QUADRIC
  97.     QUADRIC Slice ROTATE <0.0 -200.0 0.0> END_QUADRIC
  98.     QUADRIC Slice ROTATE <0.0 -220.0 0.0> END_QUADRIC
  99.     QUADRIC Slice ROTATE <0.0 -240.0 0.0> END_QUADRIC
  100.     QUADRIC Slice ROTATE <0.0 -260.0 0.0> END_QUADRIC
  101.     QUADRIC Slice ROTATE <0.0 -280.0 0.0> END_QUADRIC
  102.     QUADRIC Slice ROTATE <0.0 -300.0 0.0> END_QUADRIC
  103.     QUADRIC Slice ROTATE <0.0 -320.0 0.0> END_QUADRIC
  104.     QUADRIC Slice ROTATE <0.0 -340.0 0.0> END_QUADRIC
  105.   END_UNION
  106.   BOUNDED_BY
  107.       QUADRIC Sphere SCALE <6.7 6.7 6.7> END_QUADRIC
  108.   END_BOUND      
  109.   TEXTURE
  110.     COLOR RED 0.8 GREEN 0.22 BLUE 0.1
  111.     BUMPS 0.3
  112.     SCALE < 0.1 0.1 0.1>
  113.     AMBIENT 0.1
  114.     DIFFUSE 0.9
  115.     PHONG 0.75
  116.     PHONGSIZE 30.0
  117.   END_TEXTURE
  118.   COLOR RED 0.8 GREEN 0.22 BLUE 0.1
  119. END_OBJECT    
  120.  
  121. DECLARE Slice2 = SPHERE <0.0 0.0 5.0> 0.1 END_SPHERE
  122.  
  123. DECLARE Thing2 =
  124. OBJECT
  125.   UNION
  126.     SPHERE Slice2 END_SPHERE
  127.     SPHERE Slice2 ROTATE <0.0 -20.0  0.0> END_SPHERE
  128.     SPHERE Slice2 ROTATE <0.0 -40.0  0.0> END_SPHERE
  129.     SPHERE Slice2 ROTATE <0.0 -60.0  0.0> END_SPHERE
  130.     SPHERE Slice2 ROTATE <0.0 -80.0  0.0> END_SPHERE
  131.     SPHERE Slice2 ROTATE <0.0 -100.0 0.0> END_SPHERE
  132.     SPHERE Slice2 ROTATE <0.0 -120.0 0.0> END_SPHERE
  133.     SPHERE Slice2 ROTATE <0.0 -140.0 0.0> END_SPHERE
  134.     SPHERE Slice2 ROTATE <0.0 -160.0 0.0> END_SPHERE
  135.     SPHERE Slice2 ROTATE <0.0  180.0 0.0> END_SPHERE
  136.     SPHERE Slice2 ROTATE <0.0 -200.0 0.0> END_SPHERE
  137.     SPHERE Slice2 ROTATE <0.0 -220.0 0.0> END_SPHERE
  138.     SPHERE Slice2 ROTATE <0.0 -240.0 0.0> END_SPHERE
  139.     SPHERE Slice2 ROTATE <0.0 -260.0 0.0> END_SPHERE
  140.     SPHERE Slice2 ROTATE <0.0 -280.0 0.0> END_SPHERE
  141.     SPHERE Slice2 ROTATE <0.0 -300.0 0.0> END_SPHERE
  142.     SPHERE Slice2 ROTATE <0.0 -320.0 0.0> END_SPHERE
  143.     SPHERE Slice2 ROTATE <0.0 -340.0 0.0> END_SPHERE
  144.   END_UNION
  145.   BOUNDED_BY
  146.     SPHERE <0.0 0.0 0.0> 12 END_SPHERE
  147.   END_BOUND
  148.   TEXTURE
  149.     COLOR RED 0.1 GREEN 0.22 BLUE 0.8
  150.     AMBIENT 0.1
  151.     DIFFUSE 0.9
  152.     PHONG 0.75
  153.     PHONGSIZE 30.0
  154.   END_TEXTURE
  155.   COLOR RED 0.1 GREEN 0.22 BLUE 0.8
  156. END_OBJECT    
  157.  
  158.  
  159. {*****************************************}
  160. {*****************************************}
  161.  
  162. OBJECT
  163.    Twister
  164.    { SCALE <4.7 8.0 4.0> }
  165.    ROTATE <-15.0 30.0 0.0>
  166.    TRANSLATE <-16.0 7.7 61.5>    
  167. END_OBJECT    
  168. OBJECT
  169.    Twister
  170.    {SCALE <1.0 2.0 1.0> }
  171.    ROTATE <-15.0 0.0 -10.0>
  172.    TRANSLATE <0.0 1.0 88.0>    
  173. END_OBJECT    
  174. OBJECT
  175.    Twister
  176.    {SCALE <4.5 8.0 4.0>}
  177.    ROTATE <0.0 45.0 0.0>
  178.    TRANSLATE <13.0 25.0 40.0>    
  179. END_OBJECT    
  180.  
  181. OBJECT
  182.    Twister
  183.    {SCALE <4.5 8.0 4.0>}
  184.    ROTATE <-15.0 0.0 -10.0>
  185.    TRANSLATE <26.0 14.0 70.0>    
  186. END_OBJECT    
  187.  
  188. { Little Things }
  189. OBJECT
  190.    Thing 
  191.    SCALE <1.5 3.0 1.5>
  192.    TRANSLATE < -11.0 1.55 95.0> 
  193. END_OBJECT    
  194. OBJECT
  195.    Thing2 
  196.    SCALE <6.0 6.0 6.0>
  197.    ROTATE <-10.0 30.0 0.0>
  198.    TRANSLATE <-11.0 1.55 95.0> 
  199. END_OBJECT    
  200.  
  201. OBJECT
  202.    Thing 
  203.    SCALE <1.5 3.5 1.5>
  204.    TRANSLATE <-10.0 10.55 95.0> 
  205. END_OBJECT    
  206. OBJECT
  207.    Thing2 
  208.    SCALE <10.0 10.0 10.0>
  209.    ROTATE <0.0 0.0 -35.0>
  210.    TRANSLATE < -10.0 10.55 95.0>    
  211. END_OBJECT    
  212.  
  213. OBJECT
  214.    Thing 
  215.    SCALE <1.5 3.5 1.5>
  216.    TRANSLATE < -4.0 4.0 80.0>    
  217. END_OBJECT    
  218. OBJECT
  219.    Thing2 
  220.    SCALE <6.0 6.0 6.0>
  221.    ROTATE <-30.0 0.0 20.0>
  222.    TRANSLATE < -4.6 5.55 80.0> 
  223. END_OBJECT    
  224.  
  225.  
  226. OBJECT
  227.    Thing 
  228.    SCALE <1.5 3.5 1.5>
  229.    TRANSLATE < 11.0 1.6 90.0>    
  230. END_OBJECT
  231. OBJECT
  232.    Thing2    
  233.    SCALE <8.0 8.0 8.0>
  234.    ROTATE <0.0 45.0 20.0>
  235.    TRANSLATE < 10.0 7.0 90.0>    
  236. END_OBJECT    
  237.  
  238. {cloud hills}
  239. OBJECT
  240.     QUADRIC Paraboloid_Y 
  241.             SCALE<40.0 10.0 77.0>
  242.     END_QUADRIC 
  243.     ROTATE <0.0 0.0 180.0>
  244.     TRANSLATE <0.0 21.0 -28.0>
  245.     TEXTURE
  246.       Purple_Clouds
  247.       SCALE < 5.0 5.0 5.0>
  248.       AMBIENT 0.5
  249.       DIFFUSE 0.9    
  250.     END_TEXTURE
  251.     COLOR RED 0.5 GREEN 0.6 BLUE 0.2
  252. END_OBJECT
  253.  
  254. {cloud hill to right}
  255. OBJECT
  256.     QUADRIC Paraboloid_Y 
  257.             SCALE<30.0 10.0 40.0>
  258.     END_QUADRIC 
  259.     ROTATE <0.0 0.0 180.0>
  260.     TRANSLATE <40.0 14.0 50.0>
  261.     TEXTURE
  262.       Purple_Clouds
  263.       SCALE < 7.0 5.0 5.0>
  264.       AMBIENT 0.5
  265.       DIFFUSE 0.9    
  266.     END_TEXTURE
  267.     COLOR RED 0.6 GREEN 0.6 BLUE 0.1
  268. END_OBJECT
  269.  
  270. {The Sun}
  271. OBJECT
  272.   SPHERE <0.0 0.0 0.0> 150.0 END_SPHERE
  273.   TRANSLATE <150.0 40.0 1200.0>  
  274.   TEXTURE
  275.     COLOUR White
  276.     AMBIENT 1.0
  277.     DIFFUSE 0.0
  278.   END_TEXTURE
  279.   LIGHT_SOURCE
  280.   COLOUR White
  281. END_OBJECT
  282.  
  283. {sky}
  284. OBJECT
  285.    SPHERE <0.0 0.0 0.0> 2000.0 INVERSE END_SPHERE
  286.    TEXTURE
  287.      Sunset_Sky
  288.      TRANSLATE <0.0 200.0 0.0>
  289.      SCALE <1.2 1.2 1.2>
  290.      AMBIENT 0.6
  291.      DIFFUSE 0.0
  292.    END_TEXTURE
  293.    COLOR White
  294. END_OBJECT    
  295.